Книги-online
Ch 11.htm
назад
|
содержание
|
вперед
Совмещение изображения и текста
Иногда возникает необходимость совместить
текст и изображение в объектах приложения. Для этого используется метод print,
позволяющий выводить текст на объекте. Рассмотрим, как этот метод применяется
на практике. Для создания приложения выполните следующие действия:
1. Создайте новый стандартный проект.
Для этого в меню
File
(Файл) выберите команду New
Project
(Создать
новый проект) и в окне выбора типа проекта дважды щелкните мышью на значке
Standard EXE.
2. Присвойте проекту имя
MyGraphObjects.
Для этого откройте окно свойств проекта, выбрав команду
Projecti Properties
(Свойства Project I) из меню
Project
(Проект). После переименования проекта
эта команда будет выглядеть как
MyGraphObjects Properties.
3. Присвойте форме проекта имя FormForGraphics.
В свойство caption формы введите заголовок
Графические формы и методы.
4. Добавьте в форму кнопку управления
типа conmandButton, дважды щелкнув мышью кнопку
CommandButton
ДЦ на панели
элементов управления. Назовите эту кнопку cbstart и присвойте свойству caption
значение
Выполнить.
Созданная в форме кнопка cbstart будет служить для
отображения текста на графическом объекте по событию click этой кнопки.
5. Переименуйте форму проекта Formi
в FormForGraphics и в свойство Caption введите заголовок окна
Графические
формы и методы.
6. Добавьте в форму элемент управления
типа picture, дважды щелкнув
м
ышью
кнопку
PictureBox
на панели элементов управления. Назовите этот объект
picpicture. В свойство picture объекта вставьте графическое изображение светофора
из каталога \Common\Graphics\Icons\Traffic.
7. Введите в окно редактора небольшой
код, указанный ниже:
Private Sub cbStart_Click()
picPicture.Print "Светофор"
End Sub
8. Запустите приложение на выполнение.
Нажмите кнопку
Выполнить.
На изображении появится надпись "Светофор"
(рис. 11.10).
Рис. 11.10.
Приложение с совмещением
изображения и текста в режиме выполнения
Рис. 11.11.
Приложение с назначением
координат для текста
Можно поместить надпись под рисунком,
указав координаты точки начала надписи на изображении (рис. 11.11). В этом случае
введите в окно редактора следующий код:
Private Sub cbStart_Click()
picPicture.CurrentX = 100
picPicture.CurrentY = 400
picPicture.Print "Светофор"
End Sub
назад
|
содержание
|
вперед
